home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  542b  |  27 lines
  1. 2000 REM UNTERPROGRAMM 2
  2. 2001 REM SCHREIBEN EINES EINTRAGES IN
  3. 2002 REM DAS DIRECTORY (30 BYTES !!!)
  4. 2003 REM UEBERGABEPARAMETER:
  5. 2004 REM MM=NUMMER DES EINTRAGES DER
  6. 2005 REM    GESCHRIEBEN WERDEN SOLL
  7. 2006 REM DD$=DIRECTORYEINTRAG
  8. 2007 :
  9. 2008 :
  10. 2009 :
  11. 2010 OPEN 15,8,15,"I":OPEN8,8,8,"#"
  12. 2020 XX=INT((MM-1)/8)
  13. 2030 PRINT#15,"U1 8 0 18 0"
  14. 2040 FORZZ=1TOXX+1
  15. 2050 PRINT#15,"B-P 8 0"
  16. 2060 GET#8,T$:TT=ASC(T$+CHR$(0))
  17. 2070 GET#8,S$:SS=ASC(S$+CHR$(0))
  18. 2080 IF TT=0 THEN 2150
  19. 2090 PRINT#15,"U1 8 0";TT;SS
  20. 2100 NEXTZZ
  21. 2110 PP=MM-(XX*8):PP=(PP-1)*32+2
  22. 2120 PRINT#15,"B-P 8";PP
  23. 2130 PRINT#8,DD$;
  24. 2140 PRINT#15,"U2 8 0";TT;SS
  25. 2150 CLOSE 8:CLOSE 15
  26. 2160 RETURN
  27.